home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update20.zoo / gdb / diffs
Encoding:
Text File  |  1992-04-19  |  15.7 KB  |  590 lines
  1. *** 1.15    1992/03/09 18:12:41
  2. --- Changelo    1992/04/19 16:36:09
  3. ***************
  4. *** 179,181 ****
  5. --- 179,215 ----
  6.       open the log file when buffer fills up, dump buffer, close file
  7.       and so on.
  8.   ------------------------------- Patchlevel  17 -----------------------------
  9. + 
  10. + many places:: ++jrb
  11. +     undo all changes since PL 17, because nothing was working. Sigh!
  12. + 
  13. + atarist.c:: andreas
  14. +        (st_execle_kludge): convert PATH as in spawn..;
  15. +     don't do anything but longjmp after Pexec because the stack is
  16. +     *very* small!
  17. +     (re_comp): free compiled regex
  18. +     (st_child_read_word, st_child_write_word): handle bus errors
  19. +     (kill): allow GDB output to be interrupted
  20. + 
  21. + utils.c:: andreas
  22. +         (quit): handle interrupts
  23. + 
  24. + dbxread.c:: andreas
  25. +         handle gcc-2 symbol table extensions
  26. + 
  27. + findvar.c:: andreas
  28. +         correctly handle function types
  29. + 
  30. + infcmd.c:: andreas
  31. +         (run_command): avoid confusion after user tried to
  32. +     start program again
  33. +     (finish_command): correctly handle function return type
  34. + 
  35. + main.c:: andreas
  36. +         (Save_all_vectors): Setexc(N,-1) does work
  37. + 
  38. + source.c:: andreas
  39. +         (directory_command): correctly handle atari-like
  40. +     absolute file names
  41. + 
  42. + ------------------------------- Patchlevel  18 -----------------------------
  43. *** 1.10    1992/03/09 18:12:41
  44. --- PatchLev.h    1992/04/19 16:36:09
  45. ***************
  46. *** 1,4 ****
  47. ! #define PatchLevel "17"
  48.   
  49.   /*
  50.    *    the Patch Level above is to identify the version
  51. --- 1,4 ----
  52. ! #define PatchLevel "18"
  53.   
  54.   /*
  55.    *    the Patch Level above is to identify the version
  56. *** 1.11    1992/03/09 18:12:41
  57. --- README    1992/04/19 16:36:10
  58. ***************
  59. *** 1,3 ****
  60. --- 1,15 ----
  61. + GDB @ Patchlevel 18
  62. + 
  63. +     - many of you had difficulty with finding gdb @Patchlevel 16
  64. +     to patch to PL 17 with the last set of diffs. I apologize for
  65. +     this. gdb@pl 17 is now available on atari.archive.umich.edu
  66. +     for you to apply the 17->18 diffs.
  67. + 
  68. +     - many small bug fixes.
  69. + 
  70. +     - gdb -L is not working reliably. i still have'nt tracked this down.
  71. +     But other than that gdb is doing quite well.
  72. + 
  73.   GDB @ Patchlevel 17
  74.       - gdb -L (logging) now always works independent of TOS etc.
  75.   
  76. *** 1.19    1992/01/29 16:45:54
  77. --- atarist.c    1992/04/19 16:36:10
  78. ***************
  79. *** 111,121 ****
  80.       p = kludge_env = xmalloc(envlen);
  81.       
  82.       for (i = 0; env[i]; i++)
  83. !     {
  84. !     for (q = env[i]; *q; q++)
  85.           *p++ = *q;
  86.       *p++ = '\0';
  87. !     }
  88.       *p = '\0';
  89.       
  90.       /* the obligatory cmd line parsing */
  91. --- 111,148 ----
  92.       p = kludge_env = xmalloc(envlen);
  93.       
  94.       for (i = 0; env[i]; i++)
  95. !       {
  96. !     /*
  97. !      * NOTE: in main.c, we converted the PATH environment variable into
  98. !      * POSIX form. Here, we convert back into gulam form. Note that the
  99. !      * new variable will be shorter than the old, so space is not a
  100. !      * problem.
  101. !      */
  102. !     if (!strncmp (env[i], "PATH=", 5))
  103. !       {
  104. !         strncpy (p, env[i], 5);
  105. !         p += 5;
  106. !         for (q = env[i] + 5; *q; q++)
  107. !           {
  108. !         if (!strncmp (q, "/dev/", 5) && q[5])
  109. !           {
  110. !             *p++ = q[5];
  111. !             *p++ = ':';
  112. !             q += 5;
  113. !           }
  114. !         else if (*q == ':')
  115. !           *p++ = ',';
  116. !         else if (*q == '/')
  117. !           *p++ = '\\';
  118. !         else
  119. !           *p++ = *q;
  120. !           }
  121. !       }
  122. !     else
  123. !       for (q = env[i]; *q; q++)
  124.           *p++ = *q;
  125.       *p++ = '\0';
  126. !       }
  127.       *p = '\0';
  128.       
  129.       /* the obligatory cmd line parsing */
  130. ***************
  131. *** 174,179 ****
  132. --- 201,208 ----
  133.           /* we're returning after the child exits.  the stack
  134.              is all fucked here, so reset to top level */
  135.           child_is_running = 0;
  136. +         fprintf(stderr, "Program exitted with status %ld\n", 
  137. +             kludge_pexec_result);
  138.           exception_number = SIGTRACE;    /* not really... */
  139.           inferior_died();        /* I think this is safe here */
  140.           return_to_top_level();    /* clean up stack and restart */
  141. ***************
  142. *** 216,229 ****
  143.           trap #1
  144.           movel d0,_kludge_pexec_result");
  145.   #endif
  146. -         /* DO NOT REMOVE THIS PRINTF!!!
  147. -            For reasons I can't divine, it causes GDB to wedge totally
  148. -            when the child program exits.  If anybody ever figures this out,
  149. -            please let me know!
  150. -            */
  151. -         fprintf_filtered(stderr, "Program exitted with status 0x%lx\n", 
  152. -             kludge_pexec_result);
  153. -         
  154.           
  155.   #if 0
  156.           free(kludge_env);
  157. --- 245,250 ----
  158. ***************
  159. *** 257,265 ****
  160.   
  161.   #if 1 /* def JRDLIB */
  162.   /* called various places */
  163. ! int kill(fake_pid)
  164.   int fake_pid;
  165.   {
  166.       if (fake_pid == CHILD_PID_KLUDGE)
  167.       {
  168.       /* if the child is running, then TOS thinks we're it, so just exit */
  169. --- 278,289 ----
  170.   
  171.   #if 1 /* def JRDLIB */
  172.   /* called various places */
  173. ! int kill(fake_pid, signal)
  174.   int fake_pid;
  175. + int signal;
  176.   {
  177. +   extern void request_quit();
  178. + 
  179.       if (fake_pid == CHILD_PID_KLUDGE)
  180.       {
  181.       /* if the child is running, then TOS thinks we're it, so just exit */
  182. ***************
  183. *** 269,274 ****
  184. --- 293,303 ----
  185.       else
  186.           fprintf_filtered(stderr, "Internal error: attempt to kill when child not running\n");
  187.       }
  188. +     else if (fake_pid == getpid ())
  189. +       {
  190. +     if (signal == SIGINT)
  191. +       request_quit();
  192. +       }
  193.       else
  194.       fprintf_filtered(stderr, "You can't kill pid %d, bozo!\n", fake_pid);
  195.       
  196. ***************
  197. *** 309,314 ****
  198. --- 338,344 ----
  199.   char *regex;
  200.   {
  201.       regcomp_error = NULL;
  202. +     if (compiled_regex) free(compiled_regex);
  203.       if (compiled_regex = regcomp(regex))
  204.       return NULL;
  205.       else
  206. ***************
  207. *** 459,477 ****
  208.       fprintf_filtered(stderr, "Child is not running\n");
  209.   }
  210.   
  211.   /* read a 32-bit word from child memory */
  212.   st_child_read_word(addr)
  213. ! long * addr;
  214.   {
  215.       long result;
  216.       
  217. !     /*  fprintf_filtered(stderr, "st_child_read_word %X", addr); */
  218. !     /* be sure addr is within child memory to prevent bus errors */
  219. !     if (addr >= child_tpa->text_base - 1 && addr < child_tpa->memtop + 1)
  220. !       result = *addr;
  221. !     else
  222. !       result = 0;
  223. !     /*  fprintf_filtered(stderr, "->%X\n", result);    */
  224.       return(result);
  225.   }
  226.   
  227. --- 489,513 ----
  228.       fprintf_filtered(stderr, "Child is not running\n");
  229.   }
  230.   
  231. + void st_bus_error_handler ()
  232. + {
  233. +   asm volatile ("andw #~0x2000,sr");
  234. +   error ("Bus error while reading from or writing to child memory.");
  235. + }
  236. + 
  237.   /* read a 32-bit word from child memory */
  238.   st_child_read_word(addr)
  239. ! volatile long * addr;
  240.   {
  241.       long result;
  242. +     long old_buserror;
  243.       
  244. !     /*  fprintf(stderr, "st_child_read_word %X", addr); */
  245. !     /* report bus errors */
  246. !     old_buserror = (long) Setexc (2, st_bus_error_handler);
  247. !     result = *addr;
  248. !     (void) Setexc (2, old_buserror);
  249. !     /*  fprintf(stderr, "->%X\n", result);    */
  250.       return(result);
  251.   }
  252.   
  253. ***************
  254. *** 478,489 ****
  255.   /* write a 32-bit word to child mem */
  256.   st_child_write_word(addr, value)
  257.   long * addr;
  258. ! long value;
  259.   {
  260. !     /*  fprintf_filtered(stderr, "st_child_write_word %X <- %X\n", addr, value); */
  261. !     /* be sure addr is within child memory to prevent bus errors */
  262. !     if (addr >= child_tpa->text_base - 1 && addr < child_tpa->memtop + 1)
  263. !       *addr = value;
  264.   }
  265.   
  266.   #define DEBUG 1
  267. --- 514,527 ----
  268.   /* write a 32-bit word to child mem */
  269.   st_child_write_word(addr, value)
  270.   long * addr;
  271. ! volatile long value;
  272.   {
  273. !     long old_buserror;
  274. !     /*  fprintf(stderr, "st_child_write_word %X <- %X\n", addr, value); */
  275. !     /* report bus errors */
  276. !     old_buserror = (long) Setexc (2, st_bus_error_handler);
  277. !     *addr = value;
  278. !     (void) Setexc (2, old_buserror);
  279.   }
  280.   
  281.   #define DEBUG 1
  282. *** 1.15    1992/01/29 16:45:54
  283. --- dbxread.c    1992/04/19 16:36:13
  284. ***************
  285. *** 1110,1116 ****
  286.     register struct misc_bunch *new;
  287.   
  288.   #ifdef atarist
  289. !   if(strcmp(name, "gcc_compiled.") == 0)
  290.         return;
  291.   #endif
  292.     
  293. --- 1110,1117 ----
  294.     register struct misc_bunch *new;
  295.   
  296.   #ifdef atarist
  297. !   if (strcmp (name, "gcc_compiled.") == 0 ||
  298. !       strcmp (name, "gcc2_compiled.") == 0)
  299.         return;
  300.   #endif
  301.     
  302. ***************
  303. *** 1897,1902 ****
  304. --- 1898,1909 ----
  305.        and possibly more stuff to define the type
  306.        (all of which is handled by read_type)  */
  307.   
  308. +   if (deftype == 'T' && *p == 't')
  309. +     {
  310. +       deftype = 't';
  311. +       p++;
  312. +     }
  313. + 
  314.     if (deftype == 'p' && *p == 'F')
  315.       /* pF is a two-letter code that means a function parameter in Fortran.
  316.          The type-number specifies the type of the return value.
  317. ***************
  318. *** 2335,2340 ****
  319. --- 2342,2348 ----
  320.         break;
  321.         
  322.       case '*':
  323. +     case '&':
  324.   #if 0
  325.         type1 = read_type (pp);
  326.         if (TYPE_POINTER_TYPE (type1))
  327. ***************
  328. *** 2655,2661 ****
  329. --- 2663,2673 ----
  330.   
  331.     /* Now fill in the fields of the type-structure.  */
  332.   
  333. + #ifdef atarist
  334. +   TYPE_LENGTH (type) = gcc_mshort ? sizeof (short) : sizeof (int);
  335. + #else
  336.     TYPE_LENGTH (type) = sizeof (int);
  337. + #endif
  338.     TYPE_CODE (type) = TYPE_CODE_ENUM;
  339.     TYPE_NFIELDS (type) = nsyms;
  340.     TYPE_FIELDS (type) = (struct field *) obstack_alloc (symbol_obstack, sizeof (struct field) * nsyms);
  341. ***************
  342. *** 2678,2685 ****
  343.         struct symbol *sym = syms->symbol[j];
  344.         SYMBOL_TYPE (sym) = type;
  345.         TYPE_FIELD_NAME (type, n) = SYMBOL_NAME (sym);
  346. !       TYPE_FIELD_VALUE (type, n) = 0;
  347. !       TYPE_FIELD_BITPOS (type, n) = SYMBOL_VALUE (sym);
  348.         TYPE_FIELD_BITSIZE (type, n++) = 0;
  349.       }
  350.         if (syms == osyms)
  351. --- 2690,2697 ----
  352.         struct symbol *sym = syms->symbol[j];
  353.         SYMBOL_TYPE (sym) = type;
  354.         TYPE_FIELD_NAME (type, n) = SYMBOL_NAME (sym);
  355. !       TYPE_FIELD_BITPOS (type, n) = 0;
  356. !       TYPE_FIELD_VALUE (type, n) = SYMBOL_VALUE (sym);
  357.         TYPE_FIELD_BITSIZE (type, n++) = 0;
  358.       }
  359.         if (syms == osyms)
  360. ***************
  361. *** 2745,2751 ****
  362.       return builtin_type_unsigned_int;
  363.       }
  364.   #ifdef atarist
  365. -    /* special case for -mshort */
  366.     else if (n2 == -32768 && n3 == 32767 && typenums[1] == 1)
  367.       {
  368.         gcc_mshort = 1;
  369. --- 2757,2762 ----
  370. *** 1.5    1992/01/14 20:05:42
  371. --- findvar.c    1992/04/19 16:36:16
  372. ***************
  373. *** 213,220 ****
  374. --- 213,222 ----
  375.     int val = SYMBOL_VALUE (var);
  376.     register int len;
  377.   
  378. + #if 0
  379.     if (SYMBOL_CLASS (var) == LOC_BLOCK)
  380.       type = lookup_function_type (type);
  381. + #endif
  382.   
  383.     v = allocate_value (type);
  384.     VALUE_LVAL (v) = lval_memory;    /* The most likely possibility.  */
  385. ***************
  386. *** 361,368 ****
  387. --- 363,372 ----
  388.   
  389.     if (frame == 0) frame = selected_frame;
  390.   
  391. + #if 0
  392.     if (SYMBOL_CLASS (var) == LOC_BLOCK)
  393.       type = lookup_function_type (type);
  394. + #endif
  395.   
  396.     switch (SYMBOL_CLASS (var))
  397.       {
  398. *** 1.10    1991/11/30 17:37:25
  399. --- infcmd.c    1992/04/19 16:36:19
  400. ***************
  401. *** 197,208 ****
  402.       }
  403.   
  404.         allargs = concat ("exec ", exec_file, inferior_args);
  405.         inferior_pid = create_inferior (allargs, environ_vector (inferior_environ));
  406.   
  407. ! #ifdef atarist
  408. !       if(inferior_pid == -9999)
  409. !         error("Program already started or run once. Cannot restart program on\
  410. !  the atariST.\nExit GDB and start again if you want to do this.");
  411.   #endif
  412.       }
  413.   
  414. --- 197,212 ----
  415.       }
  416.   
  417.         allargs = concat ("exec ", exec_file, inferior_args);
  418. + #ifndef atarist
  419.         inferior_pid = create_inferior (allargs, environ_vector (inferior_environ));
  420. + #else
  421. +       i = create_inferior (allargs, environ_vector (inferior_environ));
  422. +       if (i == -9999)
  423. +         error ("\
  424. + Program already started or run once. Cannot restart program on the atariST.\n\
  425. + Exit GDB and start again if you want to do this.");
  426.   
  427. !       inferior_pid = i;
  428.   #endif
  429.       }
  430.   
  431. ***************
  432. *** 561,570 ****
  433. --- 565,579 ----
  434.         if (!value_type)
  435.       fatal ("internal: finish_command: function has no target type");
  436.   
  437. + #if 0
  438.         if (TYPE_CODE (SYMBOL_TYPE (function)) != TYPE_CODE_VOID)
  439.       value_type = SYMBOL_TYPE (function);
  440.         else
  441.       return;
  442. + #else
  443. +       if (TYPE_CODE (value_type) == TYPE_CODE_VOID)
  444. +     return;
  445. + #endif
  446.   
  447.         funcaddr = BLOCK_START (SYMBOL_BLOCK_VALUE (function));
  448.   
  449. *** 1.7    1992/03/09 18:12:41
  450. --- main.c    1992/04/19 16:36:21
  451. ***************
  452. *** 531,536 ****
  453. --- 531,537 ----
  454.         if(atari_logfile)
  455.         {
  456.         append_atari_logfile(line);
  457. +       append_atari_logfile(" (previous command repeated)\n");
  458.         }
  459.         return line;
  460.     }
  461. ***************
  462. *** 1312,1339 ****
  463.   
  464.   static void Save_all_vectors()
  465.   {
  466. !     s_vectors[2] = set_exception_vector(2, do_nothing);
  467. !     /* akp: why does Setexc(-N,..) not work?? */
  468. !     set_exception_vector(2, s_vectors[2]);
  469. !     s_vectors[3] = set_exception_vector(3, do_nothing);
  470. !     set_exception_vector(3, s_vectors[3]);
  471. !     s_vectors[4] = set_exception_vector(4, do_nothing);
  472. !     set_exception_vector(4, s_vectors[4]);
  473. !     s_vectors[5] = set_exception_vector(5, do_nothing);
  474. !     set_exception_vector(5, s_vectors[5]);
  475. !     s_vectors[6] = set_exception_vector(6, do_nothing);
  476. !     set_exception_vector(6, s_vectors[6]);
  477. !     s_vectors[7] = set_exception_vector(7, do_nothing);
  478. !     set_exception_vector(7, s_vectors[7]);
  479. !     s_vectors[8] = set_exception_vector(8, do_nothing);
  480. !     set_exception_vector(8, s_vectors[8]);
  481. !     s_vectors[9] = set_exception_vector(9, do_nothing);
  482. !     set_exception_vector(9, s_vectors[9]);
  483.       
  484. !     s_trap_0_vector = set_exception_vector(32, do_nothing);
  485. !     set_exception_vector(32, s_trap_0_vector);
  486. !     s_trap_f_vector = set_exception_vector(47, do_nothing);
  487. !     set_exception_vector(47, s_trap_f_vector);
  488.   }
  489.   
  490.   static void Restore_all_vectors()
  491. --- 1313,1329 ----
  492.   
  493.   static void Save_all_vectors()
  494.   {
  495. !     s_vectors[2] = set_exception_vector(2, -1L);
  496. !     s_vectors[3] = set_exception_vector(3, -1L);
  497. !     s_vectors[4] = set_exception_vector(4, -1L);
  498. !     s_vectors[5] = set_exception_vector(5, -1L);
  499. !     s_vectors[6] = set_exception_vector(6, -1L);
  500. !     s_vectors[7] = set_exception_vector(7, -1L);
  501. !     s_vectors[8] = set_exception_vector(8, -1L);
  502. !     s_vectors[9] = set_exception_vector(9, -1L);
  503.       
  504. !     s_trap_0_vector = set_exception_vector(32, -1L);
  505. !     s_trap_f_vector = set_exception_vector(47, -1L);
  506.   }
  507.   
  508.   static void Restore_all_vectors()
  509. *** 1.7    1991/11/30 17:37:25
  510. --- source.c    1992/04/19 16:36:24
  511. ***************
  512. *** 190,196 ****
  513.       }
  514.   
  515.   #ifdef atarist
  516. !       if (((dirname[0] != '\\') || (dirname[0] != '/')) && (dirname[1] != ':'))
  517.       dirname = concat (current_directory, "\\", dirname);
  518.   #else
  519.         if (dirname[0] != '/')
  520. --- 190,196 ----
  521.       }
  522.   
  523.   #ifdef atarist
  524. !       if ((dirname[0] != '\\') && (dirname[0] != '/') && (dirname[1] != ':'))
  525.       dirname = concat (current_directory, "\\", dirname);
  526.   #else
  527.         if (dirname[0] != '/')
  528. *** 1.10    1991/11/30 17:37:25
  529. --- symtab.c    1992/04/19 16:36:27
  530. ***************
  531. *** 49,54 ****
  532. --- 49,58 ----
  533.   struct type *builtin_type_float;
  534.   struct type *builtin_type_double;
  535.   
  536. + #ifdef atarist
  537. + extern int gcc_mshort;
  538. + #endif
  539. + 
  540.   /* Lookup the symbol table of a source file named NAME.  Try a couple
  541.      of variations if the first lookup doesn't work.  */
  542.   
  543. ***************
  544. *** 121,126 ****
  545. --- 125,135 ----
  546.     if (sym == 0 || SYMBOL_CLASS (sym) != LOC_TYPEDEF)
  547.       {
  548.         if (!strcmp (name, "int"))
  549. + #ifdef atarist
  550. +     if (gcc_mshort)
  551. +       return builtin_type_short;
  552. +     else
  553. + #endif
  554.       return builtin_type_int;
  555.         if (!strcmp (name, "long"))
  556.       return builtin_type_long;
  557. ***************
  558. *** 147,152 ****
  559. --- 156,166 ----
  560.        char *name;
  561.   {
  562.     if (!strcmp (name, "int"))
  563. + #ifdef atarist
  564. +     if (gcc_mshort)
  565. +       return builtin_type_unsigned_short;
  566. +     else
  567. + #endif
  568.       return builtin_type_unsigned_int;
  569.     if (!strcmp (name, "long"))
  570.       return builtin_type_unsigned_long;
  571. *** 1.6    1991/11/30 17:37:25
  572. --- utils.c    1992/04/19 16:36:27
  573. ***************
  574. *** 222,228 ****
  575.     ioctl (fileno (stdout), TIOCFLUSH, 0);
  576.   #endif
  577.   #endif /* not HAVE_TERMIO */
  578. ! #ifdef TIOCGPGRP
  579.     error ("Quit");
  580.   #else
  581.     error ("Quit (expect signal %d when inferior is resumed)", SIGINT);
  582. --- 222,228 ----
  583.     ioctl (fileno (stdout), TIOCFLUSH, 0);
  584.   #endif
  585.   #endif /* not HAVE_TERMIO */
  586. ! #if defined (TIOCGPGRP) || defined (atarist)
  587.     error ("Quit");
  588.   #else
  589.     error ("Quit (expect signal %d when inferior is resumed)", SIGINT);
  590.